home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / apcp38.arc / #NODE.ASP < prev    next >
Text File  |  1991-01-09  |  8KB  |  359 lines
  1. goto init
  2.  
  3. dial:
  4. strcmp s4 "        "
  5. if success
  6. return
  7. endif
  8. isfile s4
  9. if success
  10. return
  11. endif
  12. clear
  13. box 00 00 02 79 n9
  14. atsay 00 08 n9 "╤══════════╤═════════════════════════════╤"
  15. atsay 01 08 n9 "│          │                             │"
  16. atsay 02 08 n9 "╧══════════╧═════════════════════════════╧"
  17. atsay 01 02 n8 "n/a  "
  18. atsay 01 10 n8 s4
  19. atsay 01 21 n8 "Telenet Direct Node Connect"
  20. atsay 01 51 n8 s5
  21. locate 05 00
  22. transmit "C "
  23. transmit s4
  24. transmit ",xxxxnnnn,nnnnxxxx^m" ; PC-Pursuit Account and Password
  25. rget s1
  26. rget s1 80 40
  27. rget s1 40
  28. find s1 "CONNECTED"
  29. if found
  30. clear
  31. log open s4
  32. alarm 2
  33. exit
  34. else
  35. strcpy s9 "M"
  36. endif
  37. return 
  38.  
  39. top:
  40. find s0 "A"
  41. if found
  42. strcpy s4 "     "
  43. strcpy s5 "                           "
  44. gosub dial
  45. endif
  46. find s0 "B"
  47. if found
  48. strcpy s4 "EXECPC"
  49. strcpy s5 "EXEC-PC EBBS               "
  50. gosub dial
  51. endif
  52. find s0 "C"
  53. if found
  54. strcpy s4 "PURSUIT"
  55. strcpy s5 "PC-Pursuit Net Exchange    "
  56. gosub dial
  57. endif
  58. find s0 "D"
  59. if found
  60. strcpy s4 "206650"
  61. strcpy s5 "Microsoft DIAL             "
  62. gosub dial
  63. endif
  64. find s0 "E"
  65. if found
  66. strcpy s4 "202202"
  67. strcpy s5 "Compuserve                 "
  68. gosub dial
  69. endif
  70. find s0 "F"
  71. if found
  72. strcpy s4 "30124"
  73. strcpy s5 "The Source                 "
  74. gosub dial
  75. endif
  76. find s0 "G"
  77. if found
  78. strcpy s4 "91450"
  79. strcpy s5 "Mnematics                  "
  80. gosub dial
  81. endif
  82. find s0 "H"
  83. if found
  84. strcpy s4 "PLINK"
  85. strcpy s5 "People Link                "
  86. gosub dial
  87. endif
  88. find s0 "I"
  89. if found
  90. strcpy s4 "PORTAL"
  91. strcpy s5 "Portal Communications      "
  92. gosub dial
  93. endif
  94. find s0 "J"
  95. if found
  96. strcpy s4 "     "
  97. strcpy s5 "                           "
  98. gosub dial
  99. endif
  100. find s0 "K"
  101. if found
  102. strcpy s4 "     "
  103. strcpy s5 "                           "
  104. gosub dial
  105. endif
  106. find s0 "L"
  107. if found
  108. strcpy s4 "     "
  109. strcpy s5 "                           "
  110. gosub dial
  111. endif
  112. find s0 "M"
  113. if found
  114. strcpy s4 "     "
  115. strcpy s5 "                           "
  116. gosub dial
  117. endif
  118. find s0 "N"
  119. if found
  120. strcpy s4 "     "
  121. strcpy s5 "                           "
  122. gosub dial
  123. endif
  124. find s0 "O"
  125. if found
  126. strcpy s4 "     "
  127. strcpy s5 "                           "
  128. gosub dial
  129. endif
  130. find s0 "P"
  131. if found
  132. strcpy s4 "     "
  133. strcpy s5 "                           "
  134. gosub dial
  135. endif
  136. find s0 "Q"
  137. if found
  138. strcpy s4 "     "
  139. strcpy s5 "                           "
  140. gosub dial
  141. endif
  142. find s0 "R"
  143. if found
  144. strcpy s4 "     "
  145. strcpy s5 "                           "
  146. strcpy s4 "     "
  147. strcpy s5 "                           "
  148. gosub dial
  149. endif
  150. find s0 "S"
  151. if found
  152. strcpy s4 "     "
  153. strcpy s5 "                           "
  154. gosub dial
  155. endif
  156. find s0 "T"
  157. if found
  158. strcpy s4 "     "
  159. strcpy s5 "                           "
  160. gosub dial
  161. endif
  162. find s0 "U"
  163. if found
  164. strcpy s4 "     "
  165. strcpy s5 "                           "
  166. gosub dial
  167. endif
  168. find s0 "V"
  169. if found
  170. strcpy s4 "     "
  171. strcpy s5 "                           "
  172. gosub dial
  173. endif
  174. find s0 "W"
  175. if found
  176. strcpy s4 "     "
  177. strcpy s5 "                           "
  178. gosub dial
  179. endif
  180. find s0 "X"
  181. if found
  182. strcpy s4 "     "
  183. strcpy s5 "                           "
  184. gosub dial
  185. endif
  186. find s0 "Y"
  187. if found
  188. strcpy s4 "     "
  189. strcpy s5 "                           "
  190. gosub dial
  191. endif
  192. find s0 "Z"
  193. if found
  194. strcpy s4 "     "
  195. strcpy s5 "                           "
  196. gosub dial
  197. endif
  198. find s0 "0"
  199. if found 
  200. strcpy s4 "     "
  201. strcpy s5 "                           "
  202. gosub dial
  203. endif
  204. find s0 "1"
  205. if found
  206. strcpy s4 "     "
  207. strcpy s5 "                           "
  208. gosub dial
  209. endif
  210. find s0 "2"
  211. if found
  212. strcpy s4 "     "
  213. strcpy s5 "                           "
  214. gosub dial
  215. endif
  216. find s0 "3"
  217. if found
  218. strcpy s4 "     "
  219. strcpy s5 "                           "
  220. gosub dial
  221. endif
  222. find s0 "4"
  223. if found
  224. strcpy s4 "     "
  225. strcpy s5 "                           "
  226. gosub dial
  227. endif
  228. find s0 "5"
  229. if found
  230. strcpy s4 "     "
  231. strcpy s5 "                           "
  232. gosub dial
  233. endif
  234. find s0 "6"
  235. if found
  236. strcpy s4 "     "
  237. strcpy s5 "                           "
  238. gosub dial
  239. endif
  240. find s0 "7"
  241. if found
  242. strcpy s4 "     "
  243. strcpy s5 "                           "
  244. gosub dial
  245. endif
  246. find s0 "8"
  247. if found
  248. strcpy s4 "     "
  249. strcpy s5 "                           "
  250. gosub dial
  251. endif
  252. find s0 "9"
  253. if found
  254. strcpy s4 "     "
  255. strcpy s5 "                           "
  256. gosub dial
  257. endif
  258. find s0 "@"
  259. if found
  260. strcpy s4 "     "
  261. strcpy s5 "                           "
  262. gosub dial
  263. endif
  264. find s0 "#"
  265. if found
  266. strcpy s4 "     "
  267. strcpy s5 "                           "
  268. gosub dial
  269. endif
  270. find s0 "$"
  271. if found
  272. strcpy s4 "     "
  273. strcpy s5 "                           "
  274. gosub dial
  275. endif
  276. find s0 "%"
  277. if found
  278. strcpy s4 "     "
  279. strcpy s5 "                           "
  280. gosub dial
  281. endif
  282. find s0 "&"
  283. if found
  284. strcpy s4 "     "
  285. strcpy s5 "                           "
  286. gosub dial
  287. endif
  288. find s0 "*"
  289. if found
  290. strcpy s4 "     "
  291. strcpy s5 "                           "
  292. gosub dial
  293. endif
  294. find s9 "M"
  295. if found
  296. strcpy s9 " "
  297. goto top
  298. endif
  299. clear
  300. box 00 00 02 79 n9
  301. atsay 01 02 n8 "APCP: No node requested ... terminating ..."
  302. locate 05 00
  303. alarm 2
  304. exit
  305.  
  306. init:
  307. clear
  308. init n9 07
  309. init n8 07
  310. box 00 00 22 38 n9
  311. box 00 41 22 79 n9
  312. atsay 01 02 n8 "A .......................... ......"
  313. atsay 02 02 n8 "B EXEC-PC EBBS ............. EXECPC"
  314. atsay 03 02 n8 "C PC-Pursuit Net Exchange . PURSUIT"
  315. atsay 04 02 n8 "D Microsoft DIAL ........... 206650"
  316. atsay 05 02 n8 "E Compuserve ............... 202202"
  317. atsay 06 02 n8 "F The Source ................ 30124"
  318. atsay 07 02 n8 "G Mnematics ................. 91450"
  319. atsay 08 02 n8 "H People Link ............... PLINK"
  320. atsay 09 02 n8 "I Portal Communications .... PORTAL"
  321. atsay 10 02 n8 "J ................................."
  322. atsay 11 02 n8 "K ................................."
  323. atsay 12 02 n8 "L ................................."
  324. atsay 13 02 n8 "M ................................."
  325. atsay 14 02 n8 "N ................................."
  326. atsay 15 02 n8 "O ................................."
  327. atsay 16 02 n8 "P ................................."
  328. atsay 17 02 n8 "Q ................................."
  329. atsay 18 02 n8 "R ................................."
  330. atsay 19 02 n8 "S ................................."
  331. atsay 20 02 n8 "T ................................."
  332. atsay 21 02 n8 "U ................................."
  333. atsay 01 43 n8 "V ................................."
  334. atsay 02 43 n8 "W ................................."
  335. atsay 03 43 n8 "X ................................."
  336. atsay 04 43 n8 "Y ................................."
  337. atsay 05 43 n8 "Z ................................."
  338. atsay 06 43 n8 "0 ................................."
  339. atsay 07 43 n8 "1 ................................."
  340. atsay 08 43 n8 "2 ................................."
  341. atsay 09 43 n8 "3 ................................."
  342. atsay 10 43 n8 "4 ................................."
  343. atsay 11 43 n8 "5 ................................."
  344. atsay 12 43 n8 "6 ................................."
  345. atsay 13 43 n8 "7 ................................."
  346. atsay 14 43 n8 "8 ................................."
  347. atsay 15 43 n8 "9 ................................."
  348. atsay 16 43 n8 "@ ................................."
  349. atsay 17 43 n8 "# ................................."
  350. atsay 18 43 n8 "& ................................."
  351. atsay 19 43 n8 "$ ................................."
  352. atsay 20 43 n8 "% ................................."
  353. atsay 21 43 n8 "* ................................."
  354. locate 23 00
  355. get s0
  356. goto top
  357. return
  358. 
  359.